Improve the textsec-domain-suspicious-p warning message

* lisp/international/textsec.el (textsec-domain-suspicious-p):
Improve warning message.

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index db13839e90e3a2899cd7bc08c4fa88a86da7a6c8..09337548de47decf95560b9b5422c1fa314167de 100644 (file)
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -245,8 +245,11 @@ or use certain other unusual mixtures of characters."
      (lambda (char)
        (when (eq (elt idna-mapping-table char) t)
          (throw 'found
-                (format "Disallowed character: `%s' (#x%x, %s)"
-                        (bidi-string-strip-control-characters (string char))
+                (format "Disallowed character%s (#x%x, %s)"
+                        (if (eq (get-char-code-property char 'general-category)
+                                'Cf)
+                            ""
+                          (concat ": " (string char)))
                         char
                         (get-char-code-property char 'name)))))
      domain)